home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 88 / 64er_Magazin_Sonderheft_88_19xx_Markt__Technik_de_Side_B.d64 / plotter demo 1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  177 lines
  1. 10 ifa=0thena=1:load"plotter",8,1
  2. 20 sys20480
  3. 30 input"echo-modus ? j[157][157][157]";e$:print
  4. 40 open12,12
  5. 50 print#12,"e";-e$="j
  6. 60 [152]12,"l1
  7. 70 print#12,"f0,0,479,566
  8. 80 [152]12,"m126,3
  9. 90 print#12,"s2
  10. 100 [152]12,"z1
  11. 105 print#12,"l0
  12. 110 [152]12,"pplotter
  13. 120 print#12,"z0
  14. 130 [152]12,"s0
  15. 135 print#12,"r2,-1
  16. 140 [152]12,"psimulator v1 demo
  17. 150 print#12,"m254,11
  18. 160 [152]12,"pnikolaus  heusler
  19. 170 print#12,"m254,20
  20. 180 [152]12,"p(c) nh-040990-arr
  21. 190 print#12,"m0,29
  22. 195 [152]12,"l1
  23. 200 print#12,"i479,0
  24. 210 [152]12,"m2,31
  25. 215 print#12,"l0
  26. 220 [152]12,"pschrift in ver-
  27. 230 print#12,"q3
  28. 240 [152]12,"p  schie-
  29. 250 print#12,"q2
  30. 260 [152]12,"p  denen rich-
  31. 270 print#12,"q1
  32. 280 [152]12,"p  tun-
  33. 290 print#12,"q0
  34. 295 [152]12,"p  gen und...
  35. 300 print#12,"r36,-11
  36. 310 [152]12,"pg
  37. 320 print#12,"s1
  38. 330 [152]12,"pr
  39. 340 print#12,"s2
  40. 350 [152]12,"po
  41. 360 print#12,"s3
  42. 370 [152]12,"pe
  43. 380 print#12,"s4
  44. 390 [152]12,"ps
  45. 400 print#12,"s5
  46. 410 [152]12,"ps
  47. 420 print#12,"s6
  48. 430 [152]12,"pe
  49. 440 print#12,"s7
  50. 450 [152]12,"pn
  51. 460 print#12,"s0
  52. 462 [152]12,"r0,50
  53. 464 print#12,"pauf wunsch[160]
  54. 466 [152]12,"z1
  55. 468 print#12,"pauch fett!
  56. 470 [152]12,"m0,93
  57. 480 print#12,"l1
  58. 490 [152]12,"z0
  59. 500 print#12,"i479,0
  60. 510 [152]12,"l0
  61. 520 print#12,"m2,98
  62. 530 [152]12,"plinientypen:
  63. 540 print#12,"r100,0
  64. 550 [152]12,"ppunkttypen:
  65. 560 print#12,"r122,0
  66. 570 [152]12,"pmarken und zeichen:
  67. 580 print#12,"m10,110
  68. 590 [152]12,"pdurchgezogen:  "
  69. 595 [152]12,"r0,3
  70. 600 print#12,"i40,0
  71. 610 [152]12,"m10,119
  72. 620 print#12,"pgestrichelt:   "
  73. 630 print#12,"l1
  74. 640 [152]12,"b4
  75. 645 print#12,"r0,3
  76. 650 [152]12,"i40,0
  77. 660 print#12,"b1
  78. 670 [152]12,"l0
  79. 680 print#12,"m10,128
  80. 690 [152]12,"ppunktiert:     "
  81. 700 [152]12,"l2
  82. 705 print#12,"r0,3
  83. 710 [152]12,"i40,0
  84. 720 print#12,"l0
  85. 730 [152]12,"m10,137    /
  86. 740 print#12,"pdopp. punkt.:  "
  87. 750 print#12,"l3
  88. 760 [152]12,"r0,3
  89. 770 print#12,"i40,0
  90. 780 [152]12,"l0
  91. 790 print#12,"z1
  92. 800 [152]12,"m246,111
  93. 805 fori=1to5
  94. 810 print#12,"i0,30
  95. 820 [152]12,"r3,0
  96. 830 print#12,"i0,-30
  97. 840 [152]12,"r3,0
  98. 850 next
  99. 900 print#12,"m192,118
  100. 910 [152]12,"z0
  101. 920 print#12,"pset  :
  102. 930 [152]12,"z1
  103. 940 print#12,"r12,3
  104. 950 [152]12,"i40,0
  105. 960 print#12,"m192,127
  106. 970 [152]12,"z0
  107. 980 print#12,"preset:
  108. 990 [152]12,"z1
  109. 1000 print#12,"a1
  110. 1010 [152]12,"r12,3
  111. 1020 print#12,"i40,0
  112. 1030 [152]12,"a0
  113. 1040 print#12,"z0
  114. 1050 [152]12,"l1
  115. 1060 print#12,"m0,158
  116. 1070 [152]12,"i479,0
  117. 1080 print#12,"m149,93
  118. 1090 [152]12,"i0,64
  119. 1100 print#12,"m287,93
  120. 1110 [152]12,"i0,64
  121. 1120 print#12,"m295,114
  122. 1130 [152]12,"s1
  123. 1135 print#12,"l0
  124. 1140 [129]i[178]1[164]6
  125. 1150 [152]12,"n"i
  126. 1160 [152]12,"r14,0
  127. 1170 next
  128. 1175 print#12,"p# $ ?
  129. 1180 [152]12,"m295,130
  130. 1190 print#12,"p@ * ^ & % * \ q
  131. 1200 [152]12,"l1
  132. 1210 print#12,"m345,50
  133. 1220 [152]12,"peffekte
  134. 1230 print#12,"s0
  135. 1235 [152]12,"l0
  136. 1240 print#12,"m2,162
  137. 1250 [152]12,"pexakte masseinheiten:
  138. 1260 print#12,"m2,171
  139. 1270 [152]12,"pdiese linie ist genau 10 cm lang...
  140. 1280 print#12,"m218,173
  141. 1290 [152]12,"k1
  142. 1300 print#12,"i100,0
  143. 1310 [152]12,"k0
  144. 1320 print#12,"l1
  145. 1330 [152]12,"m0,180
  146. 1340 print#12,"i479,0
  147. 1350 [152]12,"l0
  148. 1360 print#12,"m2,182
  149. 1370 [152]12,"pfiguren und gebilde: strahlen und rechtecke
  150. 1380 print#12,"m138,280
  151. 1390 [152]12,"u1
  152. 1400 fori=0to1.999*(NULL)step(NULL)/10
  153. 1410 print#12,"i"69*sin(i)","84*cos(i)
  154. 1420 next
  155. 1425 print#12,"u0
  156. 1430 [129]i[178]1[164]7
  157. 1440 [152]12,"f"230[170]i[172]23","180[170]i[172]22","230[170]i[172]23[170](8[171]i)[172]20","180[170]i[172]22[170](8[171]i)[172]20
  158. 1450 [130]
  159. 1460 [152]12,"l1
  160. 1470 print#12,"m0,370
  161. 1480 [152]12,"i479,0
  162. 1490 print#12,"l0
  163. 1500 [152]12,"m2,372
  164. 1510 print#12,"phidden-line mit dem min/max-modus!
  165. 1520 [152]12,"#1
  166. 1530 forx=0to2*(NULL)step(NULL)/20
  167. 1535 kx=0:kz=kz+2
  168. 1540 fory=0to2*(NULL)step(NULL)/90
  169. 1550 kx=kx+1
  170. 1560 ky=560-abs(sin(y))*abs(sin(x))*98-kz
  171. 1570 ifkx=1thenprint#12,"."kz+92+kx","ky
  172. 1580 print#12,"d"kz+92+kx","ky
  173. 1590 nexty,x
  174. 1600 print#12,"#0
  175. 1610 [152]12,"o
  176. 1620 close12
  177.